home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESAPPL2.S < prev    next >
Text File  |  1993-03-10  |  2KB  |  78 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Application manager functions 2 of 2.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; appl_read
  17. ; appl_write
  18. ;-------------------------------------------------------------------------
  19.  
  20.           globl     _appl_read
  21. _appl_read:
  22.           move.l    #$0B020101,d0       ; AControl  11,2,1,1
  23.           bra.b     appl_rw
  24.           globl     _appl_write
  25. _appl_write:
  26.           move.l    #$0C020101,d0       ; AControl  12,2,1,1
  27. appl_rw:
  28. ;          .cargs    #4,id.w,len.w,pbuf.l
  29.  
  30. id                =    4
  31. len             =    6
  32. pbuf            =    8
  33.  
  34.           lea        id(sp),a1           ; -> intin
  35.           lea        pbuf(sp),a0        ; -> adrin
  36.           jmp        aes_do
  37.  
  38. ;-------------------------------------------------------------------------
  39. ; appl_find
  40. ;-------------------------------------------------------------------------
  41.  
  42.           globl     _appl_find
  43. _appl_find:
  44. ;          .cargs    #4,pname.l
  45.  
  46. pname            =    4
  47.  
  48.           move.l    #$0D000101,d0       ; AControl  13,0,1,1
  49.           lea        pname(sp),a0       ; -> addrin
  50.           jmp        aes_do
  51.  
  52. ;-------------------------------------------------------------------------
  53. ; appl_tplay
  54. ; appl_trecord
  55. ;-------------------------------------------------------------------------
  56.  
  57.           globl     _appl_tplay
  58. _appl_tplay:
  59.           move.l    #$0E020101,d0       ; AControl  14,2,1,1
  60.           bra.b     appl_pr
  61.           globl     _appl_trecord
  62. _appl_trecord:
  63.           move.l    #$0F010101,d0       ; AControl  15,1,1,1
  64. appl_pr:
  65. ;          .cargs    #4,pbuf.l,count.w,speed.w
  66.  
  67. pbuf             =     4
  68. count            =    8
  69. speed            =    10
  70.  
  71.           lea        count(sp),a1       ; -> intin
  72.           lea        pbuf(sp),a0        ; -> adrin
  73.           jmp        aes_do
  74.  
  75. ;          end of code
  76.  
  77.  
  78.